define alloc
proc(l)
  list := [1,2,3,4,5,6];
  return [1]
end;
a := alloc(0)